--[[
   编码: 
   名称: 
   作者：
   日期：2024-08-26

   函数： GenerateViewHTML
   功能:

   更改记录:

--]] json = require("json")
mobox = require("OILua_JavelinExt")
m3 = require("oi_base_mobox")

function GenerateViewHTML(strLuaDEID)
    local nRet, strRetInfo

    --[[ 列明 ]]

    local taCol = {"", "已用", "剩余"}
    local strCol = ""
    for i = 1, #taCol do
        strCol = strCol ..
                     " <td  style='font-size: 16px;font-weight: 500;border-top: 2px dashed #fff;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;'>" ..
                     taCol[i] .. "</td>"
    end
    --[[ 行数据 ]]
    -- local tbRow = {{"片胶", 10, 20}, {"块胶", 10, 20}, {"粉胶", 10, 20}}
    --[[ 第一列向下合并行数 ]]
    -- local nRowSpan = #tbRow + 1
    -- local strRow = ""
    -- for i = 1, #tbRow do
    --     local tbR = tbRow[i]
    --     strRow = strRow .. '<tr>'
    --     for j = 1, #tbR do
    --         strRow = strRow ..
    --                      ' <td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..
    --                      tbR[j] .. '</td>'
    --     end
    --     strRow = strRow .. ' </tr>'
    -- end

    -- 获取所有机台编码
    local area
    local strCondition = "S_CODE LIKE '%CMB%' AND S_CODE NOT LIKE '%DP%'" -- 通过什么条件筛选机台
    nRet, area = m3.QueryDataObject(strLuaDEID, "Area", strCondition)
    if (nRet ~= 0) then
        lua.Error(strLuaDEID, debug.getinfo(1), "获取机台信息失败!" .. area)
    end
    if (area == "" or area == nil) then
        lua.Error(strLuaDEID, debug.getinfo(1), "根据条件" .. strCondition .. "未获取到机台信息!")
    end
    lua.Debug(strLuaDEID,debug.getinfo(1),"area!",area)
    local strTbsHtml = ""
    for i = 1, #area do
        local kjcondtion = "S_CODE LIKE '%RC%'"  -- 块胶判断条件
        local pjcondtion = "S_CODE LIKE '%PB%'" -- 块胶判断条件
        local fjcondtion = "S_CODE LIKE '%PM%'" -- 块胶判断条件
        -- 通过库区机台编码获取对应的货位使用情况
        local kjyy_count, kjwy_count, pjyy_count, pjwy_count, fjyy_count, fjwy_count
        -- 块胶数量查询
        local strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                                "' AND N_CURRENT_NUM <> 0 AND " .. kjcondtion
        nRet, kjyy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位已使用数量失败!" .. kjyy_count)
        end
        strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                          "' AND N_CURRENT_NUM = 0 AND " .. kjcondtion
        nRet, kjwy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位未使用数量失败!" .. kjwy_count)
        end
        -- 片胶数量查询
        strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                          "' AND N_CURRENT_NUM <> 0 AND " .. pjcondtion
        nRet, pjyy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位已使用数量失败!" .. pjyy_count)
        end
        strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                          "' AND N_CURRENT_NUM = 0 AND " .. pjcondtion
        nRet, pjwy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位未使用数量失败!" .. pjwy_count)
        end
        -- 粉胶数量查询
        strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                          "' AND N_CURRENT_NUM <> 0 AND " .. fjcondtion
        nRet, fjyy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位已使用数量失败!" .. fjyy_count)
        end
        strCondtion = "S_AREA_CODE = '" .. m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE ..
                          "' AND N_CURRENT_NUM = 0 AND " .. fjcondtion
        nRet, fjwy_count = mobox.getDataObjCount(strLuaDEID, "Location", strCondtion)
        if (nRet ~= 0) then
            lua.Error(strLuaDEID, debug.getinfo(1), "获取货位未使用数量失败!" .. fjwy_count)
        end

        strTbsHtml = strTbsHtml ..
                         '<div style="width: 14%;display: inline-block;margin: 5px;"><table style=" color: #fff;width: 100%;height: 100%;text-align: center;">' ..
                         '<tbody>' .. ' <tr>' ..
                         '<td rowspan="4" style="font-size: 16px;font-weight: 500;    border: 2px dashed #fff;">' ..
                         m3.KeyValueAttrsToObjAttr(area[i].attrs).S_CODE .. '机台</td>' .. strCol .. '       </tr>' ..

                         '<tr> <td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">块胶</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..kjyy_count .. '</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..kjwy_count .. '</td> </tr>' ..

                         '<tr> <td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">片胶</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..pjyy_count .. '</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..pjwy_count .. '</td> </tr>' ..
                         '<tr> <td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">粉胶</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..
                         fjyy_count .. '</td>' ..
                         '<td  style="font-size: 16px;font-weight: 500;   border-bottom: 2px dashed #fff;   border-right: 2px dashed #fff;">' ..
                         fjwy_count .. '</td> </tr>' 
                         
                         .. '   </tbody>' .. '</table></div>'
    end

    -- local strTbsHtml = ""
    -- for i = 1, 30 do

    --     strTbsHtml = strTbsHtml ..
    --                      '<div style="width: 14%;display: inline-block;margin: 5px;"><table style=" color: #fff;width: 100%;height: 100%;text-align: center;">' ..
    --                      '<tbody>' .. ' <tr>' ..
    --                      '<td rowspan="4" style="font-size: 16px;font-weight: 500;    border: 2px dashed #fff;">' .. i ..
    --                      '号机台</td>' .. strCol .. '       </tr>' .. strRow .. '   </tbody>' .. '</table></div>'

    -- end

    local str_html = '<div style="height: 100%;text-align: center;margin: auto auto;">' .. strTbsHtml .. '</div>'

    local action = {{
        action_type = "chart",
        value = {
            graphicType = "html",
            title = {
                text = "17号机台",
                align = "left",
                color = "#fff",
                font = "微软雅黑",
                fontSize = 18
            },
            html = str_html
        }
    }}
    nRet, strRetInfo = mobox.setAction(strLuaDEID, lua.table2str(action))
    if (nRet ~= 0) then
        Error(strLuaDEID, debug.getinfo(1), "setAction失败! " .. strRetInfo .. ' action = ' .. strAction)
    end
end